"! Abstract class for scalar values "
Object subclass: Magnitude [
<category: 'Library-Numbers'>
"! Info:
Return true if this object is smaller than or equal to arg

Examples:
"
<= arg [
^ self < arg or: [ self = arg ]
]

"! Info:
Return true if this object is greater than arg

Examples:
"
> arg [
^ arg < self
]

"! Info:
Return true if this object is greater than or equal to arg

Examples:
"
>= arg [
^ (self > arg) or: [ self = arg ]
]

"! Info:
Return true if this object is included in the range [ low .. high ]

Examples:
"
between: low and: high [
^ low <= self and: [ self <= high ]
]

"! Info:
Return the maximum of this object and arg

Examples:
"
max: arg [
^ self < arg ifTrue: [ arg ] ifFalse: [ self ]
]

"! Info:
Return the minimum of this object and arg

Examples:
"
min: arg [
^ self < arg ifTrue: [ self ] ifFalse: [ arg ]
]

]

"! "
MetaObject subclass: MetaMagnitude [
<category: 'Library-Numbers'>
]

